home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / nrpas13.arc / EXPDEV.PAS < prev    next >
Pascal/Delphi Source File  |  1991-05-01  |  86b  |  5 lines
  1. FUNCTION expdev(VAR idum: integer): real;
  2. BEGIN
  3.    expdev := -ln(ran3(idum))
  4. END;
  5.